home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / modem machine (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  87 lines
  1. 100 poke251,.
  2. 110 poke53281,16:poke53280,16:printchr$(14):mn$="1"
  3. 120 print"[147][155]       [205]odem [193]nswer [205]achine 1985"
  4. 130 print"       [150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  5. 140 print"       [154] [194]y: [196]on & [196]arryn [199]raham":print"[155] [205]ail ->";peek(251)
  6. 150 print" [208]lace your '[212]-[196]' switch to '[196]' and hit  [[210]eturn] to enter ";
  7. 160 print"[193]nswer mode- ":print" [[198]1] to write message"
  8. 165 print" [[198]3] to [210]ead [205]essages"
  9. 170 print" [[198]5] to print messages"
  10. 175 print"  [[209]] to quit"
  11. 180 getzx$:ifzx$=""then180
  12. 185 ifzx$=chr$(13)then230
  13. 190 ifzx$="[133]"then700
  14. 195 ifzx$="[134]"andpeek(251)=.thenprint"[147][206]o [205]essages on file.":fora=1to1500:next
  15. 196 ifzx$="[134]"andpeek(251)=.then120
  16. 200 ifzx$="[134]"andpeek(251)then640
  17. 210 ifzx$="[135]"then750
  18. 220 ifzx$<>"q"andzx$<>"[209]"then180
  19. 222 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  20. 224 print"[147]";:ifer<>63thenend
  21. 226 load"hello connect",8
  22. 230 open5,2,2,chr$(6)
  23. 240 print"[147][155]       [205]odem [193]nswer [205]achine 1985"
  24. 250 print"       [150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  25. 260 print"       [154] [194]y: [196]on & [196]arryn [199]raham":print"[154][205]ail -->";peek(251)
  26. 270 print"[150]    [211]ystem [215]aiting for a [195]aller..."
  27. 280 poke56579,38
  28. 290 wait 56577,8,8
  29. 300 poke56577,peek(56577)or32
  30. 310 print"    [195]aller [193]ttempting to [195]onnect"
  31. 320 wait 56577,16,24
  32. 330 print"[147][155][195]arrier [207]nline... waiting for [[195][210]]"
  33. 340 fori=1to2000:next:m$=" [195]hoose [200]alf [196]uplex-- [200]it [[210]eturn]":gosub740
  34. 350 ct=ct+1
  35. 360 get#5,a$:ifa$<>chr$(13)thenifct<2000then350
  36. 370 ifa$=chr$(13)thenm$="[205]odem [193]nswer [205]achine.":gosub740:goto400
  37. 380 print"time is up, nobody was there
  38. 390 [151]56577,0:[129]i[178]1[164]5000:[130]:[137]240
  39. 400 m$[178]"----------------------------":[141]740:n$[178]"(NULL)our (NULL)ame ->":[141]840
  40. 410 [132]5,na$
  41. 420 m$[178]"(NULL)ou are "[170]na$[170]" (NULL)ight? (y/n)":[141]740
  42. 430 [161]#5,zx$:[139]zx$[178][199](89)[167]460
  43. 440 [139]zx$[178][199](78)[167] na$[178]"":[137]400
  44. 450 [137]430
  45. 460 [153]"(NULL)nline ->";na$:m$[178][199](13)[170][199](13)[170][199](13)
  46. 470 m$[178]"-- (NULL)tandby for (NULL)ysop's (NULL)essage --":[141]740
  47. 480 [159]8,8,8,"0:sysop msg,s,r"
  48. 490 [161]#8,a$:[139]st[179][177]64[167][152]5,a$;:[153]a$;:[137]490
  49. 500 m$[178][199](13)[170]"-- valnd of (NULL)essage --":[141]740:[160]8
  50. 510 m$[178][199](13)[170][199](13)[170][199](13):[141]740
  51. 520 [137]550
  52. 530 m$[178][199](13)[170][199](13)[170]"(NULL)hanks for calling...":[141]740
  53. 540 [151]56577,0:[129]i[178]1[164]5000:[130]:[137]240
  54. 550 m$[178]"<-- (NULL)essage for (NULL)ysop -->":mn$[178][196]([194](251)):[141]740
  55. 560 m$[178]" (NULL)ype '^' to end...":[141]740
  56. 570 [159]8,8,8,"0:mail "[170]mn$[170]",s,w"
  57. 580 [152]8,na$[170][199](13)
  58. 590 [161]#5,a$:[139]a$[178]""[167]590
  59. 600 [139]a$[179][177]"^"[167][153]a$;:[152]8,a$;:[137]590
  60. 610 [152]8
  61. 620 [152]5,"(NULL)aving":[160]8:m$[178]"(NULL)hanks for your comments."
  62. 625 [151]251,[194](251)[170]1
  63. 630 [141]740:[137]530
  64. 640 [153]"load(NULL)ail number to read...>";:[133]cn:mn$[178][196](cn)
  65. 650 [159]8,8,8,"0:mail "[170]mn$[170]",s,r"
  66. 660 [161]#8,a$:[139]st[179][177]64[167][153]a$;:[137]660
  67. 670 [160]8:[153]" left$it (NULL)pace."
  68. 680 [161]zx$:[139]zx$[179][177]" "[167]680
  69. 690 [137]120
  70. 700 [153]"load peekegin (NULL)ow.":[153]" left$it '^' to end..."
  71. 710 [159]8,8,8,"0:sysop msg,s,w"
  72. 720 [161]a$:[139]a$[179][177]"^"[167][153]a$;:[152]8,a$;:[137]720
  73. 730 [152]8:[160]8:[137]120
  74. 740 [152]5,m$:[153]m$:[142]
  75. 750 [159]15,4,15:[160]15:[139]st[178].[167]760
  76. 752 [153]"loaddefvalrror: (NULL)rinter (NULL)ot (NULL)nline."
  77. 755 [129]a[178]1[164]1500:[130]:[137]120
  78. 760 [153]"loaddef (NULL)rint (NULL)ail to (NULL)rinter."
  79. 770 [153]"cont valnter (NULL)ail# to print ->";:[133]e:es$[178][196](e)
  80. 780 [139]e[177][194](251)[167]760
  81. 790 [159]4,4,7:[159]8,8,8,"0:mail "[170]es$[170]",s,r":[152]4,[199](17)
  82. 800 [161]#8,a$:[139]st[179][177]64[167][152]4,a$;:[137]800
  83. 810 [160]8:[152]4:[160]4:[153]" left$it (NULL)pace."
  84. 820 [161]zx$:[139]zx$[179][177]" "[167]820
  85. 830 [137]120
  86. 840 [152]5,n$;:[153]n$;:[142]
  87.